home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Ken Long / FontShow-1.1.2-c / Think / Fontshow.c next >
Encoding:
Text File  |  1994-12-04  |  21.2 KB  |  834 lines  |  [TEXT/KAHL]
  1. //•-----------------------------------------------------------------------o//
  2. //•    Note from Kenneth A. Long:
  3. //•     I found this source on the net, but it was only the .c and .h file.
  4. //• Then after a time, I found the built application in a different place
  5. //• and was able to get the resources out of it.  Then I made the .r file
  6. //• from it, for general principles.
  7. //• The two includes I excluded caused link errors I couldn't fix, but it
  8. //• seems to run okay at first glance.  I've done hardly any testing, and
  9. //• I'm sure there could be improvements, refinements and more thorough
  10. //• code added.  But HEY!  It's C source!
  11.  
  12. //•      6. March      1994 (v1.1.2) Compiles/runs - Think C v5.0.4/6.0.1
  13. //•-----------------------------------------------------------------------o//
  14. //o The FontShow
  15.  
  16. //o (c) 1989 Rainer Fuchs, Am Weingarten 13, 6000 Frankfurt 90, FRG
  17.  
  18. //o History:
  19. //•     23. November  1994 (v1.1.2) Runs on Code Warrior C.
  20. //•     06. March      1994 (v1.1.2) Runs on Think C.
  21. //o     17. Oktober      1989 (v1.1.1) Compatible with EZ-Menu 
  22. //o     10. Oktober      1989 (v1.1)    Font number added; Fontsize added
  23. //o      3. Oktober      1989 (v1.0)    multiple sample strings
  24. //o      2. Oktober      1989 (v1.0b3) changed print format 
  25. //o     26. September 1989 (v1.0b2) changed print format
  26. //o     25. September 1989 (v1.0b1) added character table 
  27. //o     24. September 1989 (v0.0d1) first hack
  28. //o-----------------------------------------------------------------------o//
  29.  
  30. #include "fontshow.h"
  31.  
  32. //o-----------------------------------------------------------------------o//
  33. //o Error and information handling ---------------------------------------o//
  34.  
  35. void ErrorMsg (int index)
  36. {
  37.     Str255 theString;
  38.  
  39.     InitCursor ();
  40.     GetIndString (theString, 128, index);//o get error msg from rsrc.
  41.     ParamText (theString, "\p", "\p", "\p");
  42.     StopAlert (128, NIL);            //o show error dialog.
  43. }
  44.  
  45. //o-----------------------------------------------------------------------o//
  46.  
  47. void ShowInfo ()                    //o About FontShow….
  48. {
  49.     DialogPtr     myDialog;
  50.     EventRecord    myEvent;
  51.  
  52.     myDialog=GetNewDialog (ABOUT, NIL, (WindowPtr)-1);//o get dialog from rsrc.
  53.     DrawDialog (myDialog);                    //o draw it.
  54.     while (!GetNextEvent (keyDownMask|autoKeyMask|mDownMask, &myEvent))
  55.         SystemTask ();                //o wait until event.
  56.     DisposDialog (myDialog);        //o dispose of dialog.
  57. }
  58.  
  59. //o-----------------------------------------------------------------------o//
  60. //o Sample text output ---------------------------------------------------o//
  61. //o-----------------------------------------------------------------------o//
  62.  
  63. Boolean BreakCheck ()                //o check for break after each page.
  64. {
  65.     EventRecord theEvent;
  66.     WindowPtr     whichWindow;
  67.  
  68.      for (;;) 
  69.      {    //o mouse clicks in menu bar ignored for comp. with EZ-Menu 
  70.          //o *sigh*.
  71.          while (!GetNextEvent (keyDownMask|autoKeyMask|mDownMask, &theEvent))
  72.             SystemTask ();                //o wait until event.
  73.          if ((theEvent.what == keyDown) || (theEvent.what == autoKey)) //o keyDown?.
  74.             return ((char)BitAnd (theEvent.message, charCodeMask) == '.' &&
  75.                         BitAnd (theEvent.modifiers, cmdKey) != 0);
  76.             //o if Cmd-dot    then TRUE else FALSE.
  77.          else
  78.              if (theEvent.what == mouseDown && FindWindow (theEvent.where, &whichWindow)!=inMenuBar)
  79.                      return (FALSE);//o click not in MenuBar.
  80.      }
  81. }
  82.  
  83. //o-----------------------------------------------------------------------o//
  84.  
  85. void DrawPage (int i)//o draw sample page.
  86. {
  87.     myFontInfo     *myFont;
  88.     int             lineNr=0;
  89.     char             *pos;
  90.     register int from, to, nr;
  91.     register int c, x, y;
  92.     int            lineH;
  93.     int            wMax;
  94.     Str255        myStr;
  95.     char            buf[4];
  96.  
  97.     myFont= *fontHdl;                //o Block is already locked !.
  98.     lineH=myFont[i].lineHeight;
  99.     wMax=myFont[i].widMax;
  100.  
  101.     TextFont (0);                    //o draw font name in system font.
  102.     TextSize (12);                    //o and 12 pt size.
  103.     MoveTo (TOPH, TOPF);            //o    goto title line.
  104.     DrawString (myFont[i].fontName);//o draw font name.
  105.     DrawString ("\p (ID=");
  106. //    stci_d (buf, myFont[i].fontNum, 3);    //o KAL toox it out - couldn't...
  107.     DrawString (CtoPstr (buf));
  108.     DrawString ("\p) ");
  109. //    stci_d (buf, fontSize, 2);            //o find in headers.
  110.     DrawString (CtoPstr (buf));
  111.     DrawString ("\p point.");
  112.  
  113.     TextFont (myFont[i].fontNum);//o set font.
  114.     TextSize (fontSize);
  115.  
  116.     if (RealFont (myFont[i].fontNum, fontSize)) 
  117.     {
  118.         //o sample text.
  119.         if (opt == SAMPLE || prFlag) 
  120.         {
  121.             lineNr++;
  122.             HLock (myText);
  123.             from=nr=to=0;
  124.             pos=*myText;
  125.             
  126.             //o break text into single lines.
  127.             while (to<textLength) 
  128.             {    
  129.                 to++;
  130.                 
  131.                 //o search for CR.
  132.                 if ((*pos++ == 0x0D) || (to == textLength)) 
  133.                 {
  134.                     MoveTo (TOPH, TOPV + lineH*lineNr++ );//o go to next line.
  135.                     DrawText (*myText, from, to-from);//o draw line.
  136.                     from = to;
  137.                 }
  138.             }
  139.             HUnlock (myText);
  140.         }
  141.  
  142.         //o sample string.
  143.         if (opt == STRING || prFlag ) 
  144.         {
  145.             for (i=1;i;i++) 
  146.             {
  147.                 lineNr++;
  148.                 GetIndString (myStr, STRINGS, i);
  149.                 if (*myStr) 
  150.                 {
  151.                     MoveTo (TOPH, TOPV + lineH*lineNr++ );
  152.                     DrawString (myStr);
  153.                 }
  154.                 else break;
  155.             }
  156.         }
  157.         //o character map.
  158.         if (opt == MAP || prFlag) 
  159.         {
  160.             lineNr++;
  161.             
  162.             //o only printable characters.
  163.             for (c = 32; c < 256; c++) 
  164.             {    
  165.                 //o 32 char per row.
  166.                 if (c % 32 == 0) 
  167.                 {
  168.                     x = TOPH;
  169.                     y = TOPV + lineH*lineNr++;    //o new line.
  170.                 }
  171.                 MoveTo (x, y);
  172.                 if (isprint (c))                //o skip 127.
  173.                     DrawChar ((char)c);
  174.                 else
  175.                     DrawChar (32);
  176.                 x += wMax;                    //o makes a pretty output.
  177.             }
  178.         }
  179.     }
  180.     else 
  181.         {
  182.             TextSize (12);
  183.             TextFont (0);
  184.             DrawString ("\p Font size not available.");
  185.     }
  186. }
  187.  
  188. //o-----------------------------------------------------------------------o//
  189.  
  190. void ShowFonts ()                    //o Display fonts.
  191. {
  192.     register int i;
  193.     DialogPtr    myDialog;
  194.     WindowPtr     myWindow;
  195.  
  196.     prFlag = FALSE;
  197.  
  198.     if (SelectFonts ()) 
  199.     {            //o only when select dialog is ok.
  200.         myWindow = GetNewWindow (FONTWINDOW, NIL, (WindowPtr)-1L); //o open a window.
  201.         myDialog = GetNewDialog (SCREENBREAK, NIL, myWindow);//o show break information.
  202.         DrawDialog (myDialog);
  203.         SetPort (myWindow);
  204.         HLock (fontHdl);
  205.         for (i = 0; i < fontCount; i++) 
  206.         {
  207.             //o draw only selected fonts.
  208.             if ((*fontHdl)[i].flag)
  209.             {
  210.                 EraseRect (&myWindow->portRect);    //o    clear page.
  211.                 DrawPage (i);                        //o draw sample page.
  212.                 if (BreakCheck ())                    //o check for break.
  213.                     break;
  214.             }
  215.         }
  216.         HUnlock (fontHdl);
  217.         DisposeWindow (myWindow);//o close window and dialog.
  218.         DisposDialog (myDialog);
  219.     }
  220. }
  221.  
  222. //o-----------------------------------------------------------------------o//
  223.  
  224. int HowMany ()
  225. {
  226.     return (((**prRecHdl).prJob.bJDocLoop == bDraftLoop) ? 
  227.                 (**prRecHdl).prJob.iCopies : 1 );
  228. }
  229.  
  230. //o-----------------------------------------------------------------------o//
  231.  
  232. void PrintFonts ()                    //o print fonts.
  233. {
  234.     TPPrPort        myPrPort;
  235.     TPrStatus    myPrStatus;
  236.     DialogPtr     mySpoolDlg, myPrintDlg;
  237.     GrafPtr        savePort;
  238.     register int i;
  239.     register int copies;
  240.     int             curs=0;
  241.  
  242.     prFlag=TRUE;                    //o indicate printing.
  243.  
  244.     GetPort (&savePort);            //o save old grafPort.
  245.     PrOpen ();                        //o open PrintMgr.
  246.     
  247.     //o get print job infos.
  248.     if (SelectFonts () && PrJobDialog (prRecHdl)) 
  249.     { 
  250.         //o just in case last printout was cancelled by user:.
  251.         PrintErr=noErr;
  252.         for (copies = HowMany (); copies > 0 && PrintErr == noErr; copies--) 
  253.         {
  254.             //o show status information:.
  255.             if ((**prRecHdl).prJob.bJDocLoop == bSpoolLoop) 
  256.                 DrawDialog (mySpoolDlg=GetNewDialog (SPOOLINFO, NIL, (WindowPtr)-1));
  257.             else
  258.                 DrawDialog (myPrintDlg=GetNewDialog (PRINTINFO, NIL, (WindowPtr)-1));
  259.  
  260.             SetCursor (*myCursor[curs++]);//o we´re busy (rotating watch.
  261.             if (curs == 4) curs = 0;
  262.  
  263.             myPrPort = PrOpenDoc (prRecHdl, NIL, NIL); //o open printPort.
  264.             SetPort (myPrPort);
  265.             TextSize (12);
  266.             HLock (fontHdl);
  267.             for (i = 0; i < fontCount; i++) 
  268.             {
  269.  
  270.                 SetCursor (*myCursor[curs++]);//o still busy.
  271.                 if (curs == 4) curs = 0;
  272.  
  273.                 if (PrintErr == noErr) 
  274.                 {
  275.                     //o print only selected fonts.
  276.                     if ((*fontHdl)[i].flag)
  277.                     {
  278.                         PrOpenPage (myPrPort, NIL);
  279.                         if (PrintErr == noErr)
  280.                             DrawPage (i);            //o print sample page.
  281.                         PrClosePage (myPrPort);
  282.                     }
  283.                 }
  284.             }
  285.             HUnlock (fontHdl);
  286.             PrCloseDoc (myPrPort);//o close printPort.
  287.  
  288.             //o now print spool file.
  289.             if ((**prRecHdl).prJob.bJDocLoop == bSpoolLoop && PrintErr == noErr) 
  290.             {
  291.                 DisposDialog (mySpoolDlg);
  292.                 DrawDialog (myPrintDlg=GetNewDialog (PRINTINFO, NIL, (WindowPtr)-1));
  293.                 PrPicFile (prRecHdl, NIL, NIL, NIL, &myPrStatus); //o print spool file.
  294.             }
  295.  
  296.             DisposDialog (myPrintDlg);
  297.         }
  298.  
  299.         InitCursor ();
  300.         if (PrintErr!=noErr)
  301.                 ErrorMsg (ERR_PRINT);//o something went wrong.
  302.         else
  303.             SysBeep (10);            //o notify user.
  304.         PrClose ();                    //o close printing manager.
  305.         SetPort (savePort);        //o reset old grafPort.
  306.     }
  307. }
  308.  
  309. //o-----------------------------------------------------------------------o//
  310. //o Font dialog handling -------------------------------------------------o//
  311. //o-----------------------------------------------------------------------o//
  312.  
  313. pascal void    DrawList(WindowPtr theWindow, int itemNo)
  314. {
  315.     Rect         rView;
  316.     RgnHandle theRgn;
  317.     int         itemType;
  318.     Handle     item;
  319.     Rect         box;
  320.  
  321.     //o get rect of OK button.
  322.     GetDItem (theWindow, OK, &itemType, &item, &box); 
  323.     PenSize (3, 3);
  324.     InsetRect (&box, -4, -4);
  325.     FrameRoundRect (&box, 16, 16);//o draw bold.
  326.     PenSize (1, 1);
  327.  
  328.     HLock (myList);
  329.     rView= (**myList).rView;
  330.     InsetRect (&rView, -1, -1);
  331.     FrameRect (&rView);            //o frame around list.
  332.     theRgn= (*theWindow).visRgn;
  333.     LUpdate (theRgn, myList);        //o update list.
  334.     HUnlock (myList);
  335. }
  336.  
  337. //o-----------------------------------------------------------------------o//
  338.  
  339. pascal Boolean    myFilter(DialogPtr theDialog, 
  340.                             EventRecord *theEvent, 
  341.                                 int *itemHit)
  342. {
  343.     char     charCode;
  344.     GrafPtr savePort;
  345.     Cell     theCell;
  346.     Boolean flag;
  347.  
  348.     if ((theEvent->what == keyDown) || (theEvent->what == autoKey)) 
  349.     { 
  350.         charCode= (char)BitAnd (theEvent->message, charCodeMask);
  351.         
  352.         //o OK button is default.
  353.         if ((charCode == 13) || (charCode == 3)) 
  354.         { 
  355.             *itemHit=1;
  356.             return (TRUE);
  357.         }
  358.         else if ((charCode == '.') && (BitAnd (theEvent->modifiers, cmdKey) != 0)) 
  359.         {                                //o Cmd-dot cancels dialog.
  360.             *itemHit=2;
  361.             return (TRUE);
  362.         }
  363.         else return (FALSE);
  364.     }
  365.  
  366.     else 
  367.         {
  368.             if (*itemHit == FLIST) 
  369.             {    //o list handling.
  370.                     GetPort (&savePort);
  371.                     SetPort ((**myList).port);
  372.  
  373.                     //o convert to local coordinates.
  374.                     GlobalToLocal (& (theEvent->where));
  375.  
  376.                     //o simulate cmd key to fool default list
  377.                     //o definition routine !!!.
  378.                     flag = LClick (theEvent->where, 
  379.                                    theEvent->modifiers|cmdKey, 
  380.                                    myList);
  381.                                    
  382.                     SetPort (savePort);
  383.             }
  384.  
  385.             if (flag == TRUE) 
  386.             {        //o double click is equal to ok.
  387.                     *itemHit=1;
  388.                     return (TRUE);
  389.                 }
  390.                 else
  391.                     return (FALSE);
  392.     }
  393. }
  394.  
  395. //o-----------------------------------------------------------------------o//
  396. //o Initialize font list. ------------------------------------------------o//
  397. //o-----------------------------------------------------------------------o//
  398.  
  399. void InitList (WindowPtr theWindow)
  400. {
  401.     int             itemType;
  402.     Handle         item;
  403.     Point         csize, theCell;
  404.     Rect             rView, dataBounds;
  405.     register int i;
  406.     myFontInfo     *myFont;
  407.  
  408.     GetDItem (theWindow, FLIST, &itemType, &item, &rView);
  409.     SetRect (&dataBounds, 0, 0, 1, fontCount);//o set borders of list.
  410.     SetPt (&csize, 0, 0);
  411.     rView.right-=15;                //o leave room for scroll bar.
  412.     myList=LNew (&rView, &dataBounds, csize, 0, theWindow, TRUE, FALSE, FALSE, TRUE);
  413.  
  414.     HLock (fontHdl);
  415.     myFont= *fontHdl;
  416.  
  417.     //o fill list with entries from myFontInfo array.
  418.     for (i=0; i<fontCount;i++) 
  419.     {
  420.         SetPt (&theCell, 0, i);
  421.         LSetCell (myFont[i].fontName+1, *myFont[i].fontName, theCell, myList);
  422.         LSetSelect (myFont[i].flag, theCell, myList);//o preselect entries.
  423.     }
  424.     HUnlock (fontHdl);
  425. }
  426.  
  427. //o-----------------------------------------------------------------------o//
  428.  
  429. Boolean SelectFonts ()            //o handle font select dialog.
  430. { 
  431.     register int i;
  432.     int            button;
  433.     int             itemType;
  434.     Handle         item;
  435.     Rect             box;
  436.     Cell             theCell;
  437.     Boolean         stop=FALSE;
  438.     myFontInfo     *myFont;
  439.     DialogPtr     myDialog=GetNewDialog (FONTLIST, NIL, (WindowPtr)-1);
  440.                                             //o Auswahl-Dialog.
  441.  
  442.     GetDItem (myDialog, FLIST, &itemType, &item, &box);//o get rect of list button.
  443.     SetDItem (myDialog, FLIST, userItem, DrawList, &box); //o install user item.
  444.  
  445.     InitList (myDialog);             //o initialize list.
  446.  
  447.     ShowWindow (myDialog);        //o make dialog visible.
  448.     while (!stop) 
  449.     {
  450.         SystemTask ();
  451.         ModalDialog (myFilter, &button);//o Dialog anzeigen.
  452.  
  453.         switch (button) 
  454.         {
  455.             case EXALL:                //o deselect all fonts.
  456.                 for (i=0; i<fontCount;i++) 
  457.                 {
  458.                         SetPt (&theCell, 0, i);
  459.                         LSetSelect (FALSE, theCell, myList);
  460.                 }
  461.             break;
  462.  
  463.             case INALL:                //o select all fonts.
  464.                 for (i=0; i<fontCount;i++) 
  465.                 {
  466.                         SetPt (&theCell, 0, i);
  467.                         LSetSelect (TRUE, theCell, myList);
  468.                 }
  469.             break;
  470.  
  471.             case REVERT:            //o revert to old. 
  472.                 HLock (fontHdl);
  473.                 myFont= *fontHdl;
  474.                 for (i=0; i<fontCount;i++) 
  475.                 {
  476.                         SetPt (&theCell, 0, i);
  477.                         LSetSelect (myFont[i].flag, theCell, myList);
  478.                 }
  479.                 HUnlock (fontHdl);
  480.             break;
  481.  
  482.             case Cancel:            //o dialog cancelled.
  483.                 stop=TRUE;
  484.             break;
  485.  
  486.             case OK:
  487.                  HLock (fontHdl);
  488.                 myFont= *fontHdl;
  489.                 for (i=0; i<fontCount;i++) 
  490.                 {//o update myFontInfo array.
  491.                         SetPt (&theCell, 0, i);
  492.                         myFont[i].flag=LGetSelect (FALSE, &theCell, myList);
  493.                 }
  494.                 HUnlock (fontHdl);
  495.                 stop=TRUE;
  496.                 break;
  497.         } //o end case.
  498.     }
  499.  
  500.     LDispose (myList);                //o dispose of list.
  501.     DisposDialog (myDialog);                    //o dispose of dialog.
  502.     return ((button == OK)?TRUE:FALSE);
  503. }
  504.  
  505. //o-----------------------------------------------------------------------o//
  506. //o Event handling -------------------------------------------------------o//
  507. //o-----------------------------------------------------------------------o//
  508.  
  509. void HandleMenu (sel)                //o handle menu bar.
  510. long sel;
  511. {
  512.     int     theItem=LoWord (sel);
  513.     Str255 name;
  514.     GrafPtr savePort;
  515.     register int i;
  516.     myFontInfo *myFont;
  517.     FontInfo    fInfo;
  518.  
  519.     switch (HiWord (sel)) 
  520.     {
  521.         case APPLE_M:
  522.             GetItem (myMenus[APPLE], theItem, &name);
  523.             if (theItem == INFO)        //o About….
  524.                 ShowInfo ();
  525.             else 
  526.                 {
  527.                     GetPort (&savePort);//o save old grafPort (just in case…).
  528.                     OpenDeskAcc (&name);//o open DA.
  529.                     InitCursor ();        //o DA may have changed cursor.
  530.                     SetPort (savePort);    //o    DA may have changed grafPort.
  531.             }
  532.         break;
  533.  
  534.         case FILE_M:
  535.             switch (theItem) 
  536.             {
  537.                 case SETUP:
  538.                     PrOpen ();        //o open/close PrintMgr acc. to TN.
  539.                     PrStlDialog (prRecHdl);//o get page setup.
  540.                     PrClose ();
  541.                 break;
  542.  
  543.                 case DISPLAY:
  544.                     ShowFonts ();
  545.                 break;
  546.  
  547.                 case PRINT:
  548.                     PrintFonts ();
  549.                 break;
  550.  
  551.                 case QUIT:
  552.                     quit=TRUE;
  553.                 break;
  554.             }
  555.         break;
  556.  
  557.         case EDIT_M: 
  558.             SystemEdit (theItem-1); //o our application doesn´t handle EDIT menu.
  559.         break;
  560.  
  561.         case OPTIONS_M:
  562.             CheckItem (myMenus[OPTIONS], opt, FALSE); //o deselect menu item.
  563.             CheckItem (myMenus[OPTIONS], opt=theItem, TRUE); //o select new Item.
  564.         break;
  565.  
  566.         case SIZE_M:
  567.             if (theItem!=oldItem) 
  568.             {
  569.                 SetCursor (*myCursor[0]);
  570.                 CheckItem (myMenus[SIZE], oldItem, FALSE);
  571.                 CheckItem (myMenus[SIZE], oldItem=theItem, TRUE);
  572.                 switch (oldItem) 
  573.                 {
  574.                     case SIZE9:
  575.                         fontSize=9;
  576.                     break;
  577.  
  578.                     case SIZE10:
  579.                         fontSize=10;
  580.                     break;
  581.  
  582.                     case SIZE12:
  583.                         fontSize=12;
  584.                     break;
  585.  
  586.                     case SIZE14:
  587.                         fontSize=14;
  588.                     break;
  589.  
  590.                     case SIZE18:
  591.                         fontSize=18;
  592.                     break;
  593.  
  594.                     case SIZE20:
  595.                         fontSize=20;
  596.                     break;
  597.  
  598.                     case SIZE24:
  599.                         fontSize=24;
  600.                     break;
  601.                 }
  602.                 TextSize (fontSize);
  603.                 HLock (fontHdl);
  604.                 myFont= *fontHdl;
  605.                 for (i = 0; i < fontCount; i++) 
  606.                 {
  607.                 TextFont (myFont[i].fontNum);                //o set font.
  608.                 GetFontInfo (&fInfo);                            //o and get font info.
  609.                 myFont[i].lineHeight = fInfo.ascent+fInfo.descent+fInfo.leading; //o calc. line height.
  610.                 myFont[i].widMax=fInfo.widMax;            //o calc. char width.
  611.             }
  612.             HUnlock (fontHdl);
  613.             TextSize (12);
  614.             TextFont (0);
  615.             InitCursor ();
  616.         }
  617.         break;
  618.     }
  619.     HiliteMenu (0);
  620. }
  621.  
  622. //o-----------------------------------------------------------------------o//
  623.  
  624. void HandleMouseDown (theEvent)//o handle mouseDown events.
  625. EventRecord theEvent;
  626. {
  627.     WindowPtr whichWindow;
  628.  
  629.     switch (FindWindow (theEvent.where, &whichWindow )) 
  630.     {
  631.         case inDesk:
  632.             SysBeep (10);
  633.         break;
  634.  
  635.         case inMenuBar:
  636.             HandleMenu (MenuSelect (theEvent.where) ) ;
  637.         break;
  638.  
  639.         case inSysWindow:
  640.             SystemClick (&theEvent, whichWindow );
  641.         break;
  642.     } //o end switch.
  643. }
  644.  
  645. //o-----------------------------------------------------------------------o//
  646. //o MainLoop () -----------------------------------------------------------o//
  647. //o-----------------------------------------------------------------------o//
  648.  
  649. void MainLoop ()
  650. {
  651.     EventRecord theEvent;
  652.  
  653.     quit = FALSE;
  654.     while (!quit)
  655.     {
  656.         SystemTask ();
  657.         if (GetNextEvent (everyEvent, &theEvent))
  658.             switch (theEvent.what) 
  659.             {
  660.                 case mouseDown:    //o mouse click.
  661.                     HandleMouseDown (theEvent);
  662.                 break;
  663.  
  664.                 case keyDown:         //o key click.
  665.                 case autoKey:
  666.                     if ((theEvent.modifiers & cmdKey) != 0) //o we handle only Cmd-key.
  667.                         HandleMenu (MenuKey ((char) (theEvent.message & charCodeMask)));
  668.                 break;
  669.             } //o end switch (and if).
  670.     }//o end while.
  671. }
  672.  
  673. //o-----------------------------------------------------------------------o//
  674. //o Initialization and main () --------------------------------------------o//
  675. //o-----------------------------------------------------------------------o//
  676.  
  677. void InitMenu ()                    //o Draw menu bar.
  678. {
  679.     register int i;
  680.  
  681.     myMenus[APPLE]=GetMenu (APPLE_M);
  682.     AddResMenu (myMenus[APPLE], 'DRVR');//o insert DAs in Apple-menu.
  683.  
  684.     myMenus[FILE]=GetMenu (FILE_M);
  685.     myMenus[EDIT]=GetMenu (EDIT_M);
  686.     myMenus[OPTIONS]=GetMenu (OPTIONS_M);
  687.     myMenus[SIZE]=GetMenu (SIZE_M);
  688.  
  689.     CheckItem (myMenus[OPTIONS], opt = SAMPLE, TRUE); //o preselect "sample text".
  690.     CheckItem (myMenus[SIZE], oldItem=SIZE12, TRUE); //o preselect font size 12.
  691.     fontSize=12;
  692.  
  693.     for (i = 0; i < 5; InsertMenu (myMenus[i++], 0))
  694.         ;
  695.     DrawMenuBar ();
  696. }
  697.  
  698. //o-----------------------------------------------------------------------o//
  699.  
  700. void InitText ()                    //o get sample text from rsrc.
  701. {
  702.     myText = GetResource ('TEXT', 128);
  703.     textLength= (int)SizeResource (myText);
  704. }
  705.  
  706. //o-----------------------------------------------------------------------o//
  707.  
  708. void InitPrint ()
  709. {
  710.     PrOpen ();
  711.     prRecHdl= (THPrint)NewHandle (sizeof (TPrint));//o get new print record.
  712.     if (prRecHdl)
  713.         PrintDefault (prRecHdl);    //o validate it.
  714.     else
  715.         ErrorMsg (ERR_NOROOM);
  716.     PrClose ();
  717. }
  718.  
  719. //o-----------------------------------------------------------------------o//
  720.  
  721. void BuildList ()                    //o build font list.
  722. {
  723.     register     int i;
  724.     myFontInfo    *myFont;
  725.     FontInfo     fInfo;
  726.     MenuHandle    tempMenu;
  727.  
  728.     //o Get a fake menu; use the Menu Manager to fill it with font names - 
  729.     //o the Menu Manager sorts entries alphabetically !.
  730.  
  731.     tempMenu = NewMenu (TEMP_M, "x");
  732.     AddResMenu (tempMenu, 'FONT');
  733.     fontCount=CountMItems (tempMenu);
  734.  
  735.     //o dynamic allocation of heap space for myFontInfo array.
  736.     if (fontHdl= (myFontInfo **)NewHandle (fontCount*sizeof (myFontInfo))) 
  737.     {
  738.         HLock (fontHdl);
  739.         TextSize (12);
  740.         myFont= *fontHdl;
  741.         for (i=0;i<fontCount;i++) 
  742.         {
  743.                 GetItem (tempMenu, i+1, myFont[i].fontName);//o get font names.
  744.             GetFNum (myFont[i].fontName, &myFont[i].fontNum);//o get font numbers.
  745.             TextFont (myFont[i].fontNum);                //o set font.
  746.             GetFontInfo (&fInfo);                            //o and get font info.
  747.             myFont[i].lineHeight = fInfo.ascent+fInfo.descent+fInfo.leading; //o calc. line height.
  748.             myFont[i].widMax=fInfo.widMax;            //o calc. char width.
  749.             myFont[i].flag=TRUE;                            //o preselect font.
  750.         }
  751.         HUnlock (fontHdl);
  752.     }
  753.     else
  754.         ErrorMsg (ERR_NOROOM);
  755.  
  756.     DisposeMenu (tempMenu);//o We’re done with the menu; dispose of it.
  757.     TextFont (0);    //o and reset system font.
  758. }
  759.  
  760. //o-----------------------------------------------------------------------o//
  761.  
  762. void InitThings ()
  763. {
  764.     DialogPtr myDialog;
  765.     register int i;
  766.  
  767.     InitGraf (&thePort); 
  768.     MaxApplZone ();                        //o we want it all, and we want it NOW !.
  769.     MoreMasters ();                    //o extra pointer blocks at the bottom of the heap.
  770.     MoreMasters ();                    //o this is 5 X 64 master pointers.
  771.     MoreMasters ();
  772.     MoreMasters ();
  773.     MoreMasters ();
  774.  
  775.     InitFonts ();            //o startup the font manager.
  776.     InitWindows ();                        //o startup the window manager.
  777.     InitMenus ();                    //o startup the menu manager.
  778.     TEInit ();                        //o startup the text edit manager.
  779.     InitDialogs (NIL);                //o startup the dialog manager.
  780.  
  781.     FlushEvents (everyEvent, 0);
  782.  
  783. //o get the cursors we use and lock them down - no clutter.
  784.  
  785.     myCursor[0] = GetCursor (watchCursor);
  786.     myCursor[1] = GetCursor (128);
  787.     myCursor[2] = GetCursor (129);
  788.     myCursor[3] = GetCursor (130);
  789.  
  790.     for (i = 0; i < 4; i++) 
  791.     {
  792.         MoveHHi ((Handle)myCursor[i]);
  793.         HLock ((Handle)myCursor[i]);
  794.     }
  795.  
  796.     //o tell user we´re busy.
  797.     myDialog = GetNewDialog (WAIT, NIL, (WindowPtr)-1); 
  798.     DrawDialog (myDialog);
  799.     InitMenu ();                        //o build menus.
  800.     InitText ();                        //o get sample text.
  801.     InitPrint ();                    //o initialize printing.
  802.     BuildList ();                    //o build font name list.
  803.     DisposDialog (myDialog);
  804.     InitCursor ();                    //o show arrow cursor.
  805. }
  806.  
  807. //o-----------------------------------------------------------------------o//
  808.  
  809. void CleanUp ()
  810. {
  811.     register int i;
  812.  
  813.     if (fontHdl)
  814.         DisposHandle (fontHdl);
  815.     if (prRecHdl)
  816.         DisposHandle (prRecHdl);
  817.     for (i=0;i<4;i++)
  818.         HUnlock ((Handle)myCursor[i]);
  819. }
  820.  
  821. //o-----------------------------------------------------------------------o//
  822.  
  823. void main ()
  824. {
  825.     InitThings ();                            //o initializations.
  826.     if (fontHdl && prRecHdl)
  827.         MainLoop ();                            //o main routine.
  828.     CleanUp ();                                //o clean up.
  829. }
  830.  
  831. //o-----------------------------------------------------------------------o//
  832. //o Show's over, folks!
  833. //o-----------------------------------------------------------------------o//
  834.